home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cyber11.lha / Cyber.REXX next >
OS/2 REXX Batch file  |  1994-03-12  |  2KB  |  100 lines
  1.   /*************/
  2.  /* CyberCNET */
  3. /*************/
  4. options results
  5. signal on syntax
  6. MaxLevels = 10
  7. Getuser 1;name=result
  8. getuser 22;ncalls=result
  9. getuser 31;nuploads=result
  10. getuser 30;kuploads=result
  11. getuser 36;pmail=result
  12. getuser 15;status=result
  13. getuser    16;ggr=result
  14. Path='SYSdata:'
  15. tr='transmit'
  16. ss='sendstring'
  17. bbsname='Raw Deal BBS'
  18.  
  19. changewhere "Triyn' to gethigher axx."
  20. if ~exists(path||'levels.cfg') then do
  21. tr "Cant't find configfile.....ASSHOLE!"
  22. signal off error; call END
  23. end
  24.  
  25. else do
  26.  
  27. l = 0
  28. call open(file,path||'levels.cfg','R')
  29.  do until eof(file)
  30.  
  31.    lev.l = readln(file)
  32.     kbu.l = readln(file)    
  33.      nof.l = readln(file)
  34.       pmail.l = readln(file)
  35.        ncall.l = readln(file)        
  36.         foo.l = readln(file)
  37.  
  38.     l = l + 1
  39.  end
  40.  
  41. tr 'f1c2'
  42. tr "  "
  43. tr "         +-------------------------------------------------------------+"
  44. tr "         |                         Welcome to                          |"
  45. tr "         |                 CyberCNET v 1.1 (C)1994 by                  |"
  46. tr "         |                      Wolverine / DMI                        |"
  47. tr "         +-------------------------------------------------------------+"
  48. tr "  "
  49. tr "c5 Hi there c4"||name||"c5 and welcome to The CyberCNET!!"
  50. tr " "
  51. tr " So far you've made c1"||ncalls||"c5 number of call's ,"
  52. tr " you've got status c7"||status||"c5 or c7"||ggr||"c5."
  53. tr " In totally c2"||nuploads||"c5 uploads,"
  54. tr " you've uploaded c3"||kuploads||"c5 bytes and "
  55. tr " written c1"||pmail||"c5 public messages."
  56. tr " "
  57. ss " This means that "
  58.  
  59.  
  60. call ChecStats
  61.     
  62. ChecStats:
  63. lk = status    
  64. if status >= MaxLevels then call SuperUser
  65. if nuploads < nof.lk then call NoHigherAxx
  66. if kuploads < kbu.lk then call NoHigherAxx
  67. if pmail < pmail.lk  then call NoHigherAxx
  68. if ncalls < ncall.lk then call NoHigherAxx
  69.  
  70. call GetNextLevel
  71.  
  72. NoHigherAxx:
  73. tr "you have to be a more motivated user here "
  74. tr " at "||bbsname||" to get higher access."
  75. sk = 0
  76. call SLUT
  77.  
  78. SuperUser:
  79. tr "you already have full access and can't get higher!"
  80. sk = 1
  81. call SLUT
  82.  
  83. GetNextLevel:
  84.  lk=lk-1
  85.  sstat = status
  86.  sttus = status + 1
  87.  status = lev.lk
  88. tr "you have now status "||status
  89. sk = 2
  90. setobject status
  91. putuser 15
  92. call SLUT
  93.  
  94. SLUT:
  95. Logentry 'Used CyberCNET'
  96. if sk = 0 logentry ' And did not get higher access.'
  97. if sk = 1 logentry ' Already had full access.'
  98. if sk = 2 logentry ' And got higher access.'
  99. end
  100.